home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / original logview.mrc < prev    next >
Text File  |  2003-04-09  |  5KB  |  91 lines
  1.  
  2. alias logview { if ($dialog(lv)) { dialog -ve lv } | else { dialog -mod lv lv } }
  3.  
  4. ;-----------------
  5. ;------------------
  6. ;  Log Viewer by KiX
  7. ;   mdx.dll by Dragonzap
  8. ;------------------------
  9. ;-------------------------
  10.  
  11. On *:load:{ 
  12.   if ($version != 6.03) { echo 4 -a ::Sorry!! You need m8I9R12C4 version 6.03 to use this script | .unload $+(",$script,") | halt } 
  13.   else { echo 9 -a ::Log Viewer by .::KiX::. | echo 9 -a ::Usage: Right click the main, status, or nicklist and go to logviewer }
  14. }
  15. On *:unload:{ if (logview.mrc isin $script) { unset %lg.file } }
  16. menu channel,nicklist,status {
  17.   -
  18.   Log Viewer
  19.   .Open:{ if ($dialog(lv)) { dialog -ve lv } | else { dialog -mod lv lv } }
  20.   .-
  21.   .Help:{ run $+(",$scriptdirreadme.txt,") }
  22. }
  23. menu @lv {
  24.   -
  25.   Clear:Clear @lv
  26. }
  27. Alias -l mdxlog_fullpath { return $+(",$scriptdirmdx.dll,") }
  28. Alias -l mdxlog { dll $mdxlog_fullpath $1- }
  29. Alias -l mdxloginit { dll $mdxlog_fullpath SetMircVersion $version | dll $mdxlog_fullpath MarkDialog $dname }
  30. Alias -l read.log { if ($isfile($1-) == $true) { clear @lv | loadbuf $+(1,-,$lines($1-)) -pi @lv $1- } }
  31. Alias logs { did -ra lv 1 0 3 %lg.file | did -i lv 1 1 headertext 0 - $+ $findfile(%lg.file,*.*,0,did -a lv 1 0 2 $nopath($1-)) $+ - Log Files } 
  32. Alias lg.seek { did -ra lv 1 0 3 %lg.file | did -i lv 1 1 headertext 0 - $+ $findfile(%lg.file,$+(*,$did($dname,7).text,*),0,did -a lv 1 0 2 $nopath($1-)) $+ - File(s) Found }
  33. dialog lv {
  34.   title "Log Viewer"
  35.   size 58 55 327 166
  36.   option dbu
  37.   icon lvicos.icl, 0
  38.   list 1, 227 1 100 140, size
  39.   button "Button", 2, 0 1 227 165
  40.   button "View", 3, 227 141 25 8
  41.   button "Clear", 11, 252 141 25 8
  42.   button "Edit", 4, 277 141 25 8
  43.   button "Send", 5, 303 149 24 8
  44.   button "Delete", 6, 302 141 25 8
  45.   edit "Find LoG", 7, 227 158 76 9, return autohs center 
  46.   button "Search", 8, 303 157 24 9
  47.   edit "Send To", 12, 227 149 76 9, return autohs center 
  48.   menu "Directory", 9
  49.   item "Change", 10, 9
  50.   menu "Refresh", 16
  51.   item "Log List", 17, 16
  52.   menu "Exit", 14
  53.   item "Yes", 15, 14, ok
  54.   button "x", 1000, 1000 1000 0 0 
  55. }
  56. On *:dialog:lv:init:0:{
  57.   mdxloginit | mdxlog SetControlMDX $dname 2 Window > $scriptdirdialog.mdx | mdxlog SetControlMDX $dname 1 ListView report rowselect single grid > $scriptdirviews.mdx
  58.   window -ehk[0] +d @lv | did -a $dname 2 grab $window(@lv).hwnd @lv
  59.   if (!%lg.file) { set %lg.file $+(",$mircdirlogs\,") }
  60.   did -i $dname 1 1 headerdims 400
  61.   did -i $dname 1 1 headertext 3 Logs
  62.   did -i $dname 1 1 iconsize normal small
  63.   did -i $dname 1 1 seticon normal 0, $+ $scriptdirlvicos.icl
  64.   did -i $dname 1 1 seticon normal 1, $+ $scriptdirlvicos.icl
  65.   did -i $dname 1 1 seticon normal 2, $+ $scriptdirlvicos.icl
  66.   logs | editbox @lv $chr(9) Enter text to find, and hit the enter key on your keyboard.
  67. }
  68. On *:dialog:lv:sclick:1:{ 
  69.   if ($isfile($+(",$remove(%lg.file,") $+ $gettok($did($dname,1).seltext,6-,32),")) == $true) {
  70.     dialog -t $dname Log Viewer - $gettok($did($dname,1).seltext,6-,32) - $round($calc($file($+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),")).size / 975),0) $+ kb - | halt 
  71.   }
  72.   if ($isdir($+(",$gettok($did($dname,1).seltext,6-,32),")) == $true) { dialog -t lv Log Viewer Directory $gettok($did($dname,1).seltext,6-,32) | halt }
  73.   else { dialog -t $dname Log Viewer }
  74. }
  75. On *:dialog:lv:dclick:1:{ read.log $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),") }
  76. On *:dialog:lv:sclick:3:{ read.log $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),") }
  77. On *:dialog:lv:sclick:4:{ var %log = $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),"),%l = 1 | if ($isfile(%log) == $true) { echo 4 @lv ::Editing15 $nopath(%log) | run %log } }
  78. On *:dialog:lv:sclick:5:{ var %log = $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),"),%l = 1 | if ($isfile(%log) == $true) { echo 4 @lv ::Sending15 $nopath(%log) to $did($dname,12).text | dcc send -c $did($dname,12).text %log } }
  79. On *:dialog:lv:sclick:6:{ var %log = $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),"),%l = 1 | if ($isfile(%log) == $true) { echo 4 @lv ::Removing15 $nopath(%log) to Recycle Bin | .remove -b %log | logs | did -cf $dname 1 3 } }
  80. On *:dialog:lv:sclick:8:{ lg.seek }
  81. On *:dialog:lv:sclick:11:{ clear @lv }
  82. On *:dialog:lv:menu:10:{ set %lg.file $+(",$sdir($mircdir),") | logs }
  83. On *:dialog:lv:menu:17:{ logs }
  84. On *:input:@lv:{ var %f = $1- | findtext %f | editbox @lv %f }
  85.  
  86. ;----------
  87. ;-----------
  88. ; end of file
  89. ;-------------
  90. ;--------------
  91.